home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9112a.d64 / listing 2 < prev    next >
Text File  |  1995-03-30  |  593b  |  60 lines
  1.  Listing 2:
  2. sei
  3. lda  #<neuirq
  4. ldx  #>neuirq
  5. sta  $0314
  6. stx  $0315
  7. lda  #$7f
  8. sta  $dc0d
  9. lda  #$01
  10. sta  $d01a
  11. lda  #$28
  12. sta  $d012
  13. lda  $d011
  14. and  #$7f
  15. sta  $d011
  16. lda  #$00
  17. sta  $3fff
  18. cli
  19. rts
  20.  
  21. :neuirqlda  $d019
  22. sta  $d019
  23.  
  24. ldx  #$00
  25. lda  #$19
  26. :waitzeilecmp  $d012
  27. bcs  waitzeile
  28. ldy  #$0c
  29. :wait1dey
  30. bne  wait1
  31. lda  #$10
  32. sta  $d011
  33. ldy  #$23
  34. :wait2dey
  35. bne  wait2
  36. bit  $c0
  37. bit  $c0
  38. :labelldy  $d012
  39. dey
  40. tya
  41. and  #$07
  42. ora  #$10
  43. sta  $d011
  44. lda  #06
  45. sta  $d021
  46. lda  #01
  47. sta  $d021
  48. lda  #02
  49. sta  $d021
  50. lda  #01
  51. sta  $d021
  52. lda  #06
  53. sta  $d021
  54. inx
  55. cpx  #$64
  56. bne  label
  57. lda  #$00
  58. sta  $d021
  59. jmp  $ea81
  60.